home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / struprlw.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  646 b   |  30 lines
  1. /*
  2.                              S T R U P R L W . C
  3.  
  4. */
  5.  
  6. #include "iccomp.h"
  7.  
  8. ESTRUC_ *strupr_lwr(E_TYPE_ type, ESTRUC_ *arg)
  9. {
  10.     etoc(arg);                              /* arg to stack */
  11.  
  12.                                             /* test type of argument */
  13.     if (!test_type(arg, e_str))
  14.     {
  15.         semantic(type_conflict, funstring[type]);
  16.         return (arg);
  17.     }
  18.  
  19.     callhidden                                  /* call a hidden function */
  20.     (
  21.         type == f_strlwr ?
  22.             he_strlwr
  23.         :
  24.             he_strupr,
  25.         arg
  26.     );
  27.  
  28.     return (arg);                           /* return called function code */
  29. }
  30.